home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-17 / mouse.zip / BINU.PAS < prev    next >
Pascal/Delphi Source File  |  1991-07-01  |  623b  |  44 lines
  1. Unit BINU;
  2.  
  3. Interface
  4.  
  5. Function BinToWord(s : String) : Word;
  6.  
  7. Function WordToBin(W : Word) : String;
  8.  
  9. Implementation
  10.  
  11. Function BinToWord(s : String) : Word;
  12. Var
  13.    w, i, j : Word;
  14. Begin
  15. w := 0;
  16. j := 1;
  17. For i := Length(s) downto 1 do
  18.     Begin
  19.     w := w + (Ord(s[i])-48) * j;
  20.     j := j *2;
  21.     End;
  22. BinToWord := w;
  23. End;
  24.  
  25. Function WordToBin(W : Word) : String;
  26. Var
  27.    s : String;
  28.    i,j,k: Word;
  29. Begin
  30. k := 1;
  31. s := '';
  32. For i := $0 to $f Do
  33.     begin
  34.     If (W and k) > 0 Then
  35.        s := '1' + s
  36.     Else
  37.         s := '0' + s;
  38.     k := k * 2;
  39.     End;
  40. WordToBin := s;
  41. End;
  42.  
  43. End.
  44.